20 DV=PEEK(186):IFGG=1THEN50
30 GG=1:LOAD"CHAR 7",DV,1
50 A1=14336:B1=51200
60 FORK=B1TOB1+2047:POKEK,PEEK(A1):A1=A1+1:NEXT
65 PRINT"DISK.....":POKE198,0:WAIT198,1
70 FI$="CH7":GOTO1000
999 END
1000 SA=51200:REM *ENTER START ADDRESS  HERE***
1002 EA=53248:REM *ENTER END ADDRESS +1*****
1004 DE=8
1006 REM  FI$="FILENAME":REM*ENTER FILENAME**********
1030 DE=8:POKE194,SA/256:POKE193,SA-PEEK(194)*256
1040 POKE175,EA/256:POKE174,EA-PEEK(175)*256
1050 L=LEN(FI$)
1060 FORP=1TOL:POKE1023+P,ASC(MID$(FI$,P,1)):NEXT
1070 POKE187,0:POKE188,4:POKE183,L:POKE186,DV:SYS62954
4992 END